home *** CD-ROM | disk | FTP | other *** search
/ Champak 26 (Anniversary Edition) / Volume 26 [Anniversary Edition] - JOGO DISK .iso / DEPOSITO / REmovido / Puzzle / SnakeMania.exe / scripts / DefineSprite_172 / frame_24 / DoAction.as
Text File  |  2002-06-06  |  4KB  |  176 lines
  1. if(eval("_level0/game:pause") == "1")
  2. {
  3.    tellTarget("status")
  4.    {
  5.       gotoAndStop("pause");
  6.    }
  7. }
  8. else if(eval("_level0/game:pause") == "0")
  9. {
  10.    tellTarget("status")
  11.    {
  12.       gotoAndStop(1);
  13.    }
  14. }
  15. i = numplayer;
  16. playerleft = numplayer;
  17. while("0" < i)
  18. {
  19.    if(eval("_level0/game/snake" add i add ":gameover") == "1")
  20.    {
  21.       playerleft -= "1";
  22.    }
  23.    else if(eval("_level0/game/snake" add i add ":gameover") == "")
  24.    {
  25.       set("status:winner",i);
  26.    }
  27.    i -= "1";
  28. }
  29. if("1" < numplayer and playerleft == "1")
  30. {
  31.    call("stop");
  32.    tellTarget("status")
  33.    {
  34.       gotoAndStop("Winner");
  35.       play();
  36.    }
  37.    set("_level0/game/sound:sound","winner");
  38.    stop();
  39. }
  40. else if("1" < numplayer and playerleft == "0")
  41. {
  42.    call("stop");
  43.    tellTarget("status")
  44.    {
  45.       gotoAndStop("draw");
  46.       play();
  47.    }
  48.    set("_level0/game/sound:sound","draw");
  49.    stop();
  50. }
  51. else if(playerleft == "0")
  52. {
  53.    call("stop");
  54.    tellTarget("status")
  55.    {
  56.       gotoAndStop("gameover");
  57.       play();
  58.    }
  59.    set("_level0/game/sound:sound","gameover");
  60.    stop();
  61. }
  62. if(whiteegg == "0")
  63. {
  64.    overlap = "1";
  65.    while(overlap)
  66.    {
  67.       weggxpos = random((ORGxmax - ORGxmin) / "10") * "10";
  68.       weggypos = random((ORGymax - ORGymin) / "10") * "10";
  69.       weggxpos += ORGxmin;
  70.       weggypos += ORGymin;
  71.       i = "0";
  72.       overlap = "0";
  73.       while(i < eval("_level0/game:snake1length"))
  74.       {
  75.          i += "1";
  76.          if(weggxpos == eval("_level0/game:snake1xposarray" add i) and weggypos == eval("_level0/game:snake1yposarray" add i))
  77.          {
  78.             overlap = "1";
  79.          }
  80.       }
  81.       if(weggxpos == yeggxpos)
  82.       {
  83.          if(weggypos == yeggypos)
  84.          {
  85.             overlap = "1";
  86.          }
  87.       }
  88.       if(weggxpos == reggxpos)
  89.       {
  90.          if(weggypos == reggypos)
  91.          {
  92.             overlap = "1";
  93.          }
  94.       }
  95.    }
  96. }
  97. whiteegg = "1";
  98. setProperty("whiteegg", _X, weggxpos);
  99. setProperty("whiteegg", _Y, weggypos);
  100. if(redegg == "0")
  101. {
  102.    overlap = "1";
  103.    while(overlap)
  104.    {
  105.       reggxpos = random((ORGxmax - ORGxmin) / "10") * "10";
  106.       reggypos = random((ORGymax - ORGymin) / "10") * "10";
  107.       reggxpos += ORGxmin;
  108.       reggypos += ORGymin;
  109.       i = "0";
  110.       overlap = "0";
  111.       while(i < eval("_level0/game:snake1length"))
  112.       {
  113.          i += "1";
  114.          if(reggxpos == eval("_level0/game:snake1xposarray" add i) and reggypos == eval("_level0/game:snake1yposarray" add i))
  115.          {
  116.             overlap = "1";
  117.          }
  118.       }
  119.       if(reggxpos == yeggxpos)
  120.       {
  121.          if(reggypos == yeggypos)
  122.          {
  123.             overlap = "1";
  124.          }
  125.       }
  126.       if(reggxpos == weggxpos)
  127.       {
  128.          if(reggypos == weggypos)
  129.          {
  130.             overlap = "1";
  131.          }
  132.       }
  133.    }
  134. }
  135. redegg = "1";
  136. setProperty("redegg", _X, reggxpos);
  137. setProperty("redegg", _Y, reggypos);
  138. if(yellowegg == "0")
  139. {
  140.    overlap = "1";
  141.    while(overlap)
  142.    {
  143.       yeggxpos = random((ORGxmax - ORGxmin) / "10") * "10";
  144.       yeggypos = random((ORGymax - ORGymin) / "10") * "10";
  145.       yeggxpos += ORGxmin;
  146.       yeggypos += ORGymin;
  147.       i = "0";
  148.       overlap = "0";
  149.       while(i < eval("_level0/game:snake1length"))
  150.       {
  151.          i += "1";
  152.          if(yeggxpos == eval("_level0/game:snake1xposarray" add i) and yeggypos == eval("_level0/game:snake1yposarray" add i))
  153.          {
  154.             overlap = "1";
  155.          }
  156.       }
  157.       if(yeggxpos == weggxpos)
  158.       {
  159.          if(yeggypos == weggypos)
  160.          {
  161.             overlap = "1";
  162.          }
  163.       }
  164.       if(yeggxpos == reggxpos)
  165.       {
  166.          if(yeggypos == reggypos)
  167.          {
  168.             overlap = "1";
  169.          }
  170.       }
  171.    }
  172. }
  173. yellowegg = "1";
  174. setProperty("yellowegg", _X, yeggxpos);
  175. setProperty("yellowegg", _Y, yeggypos);
  176.